* lisp/doc-view.el (doc-view-presentation): Fix thinko

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 3cac2629a9ca9b3af2fcfe6fa44d873c0bd74fb0..de342f1519e9eb86aa9fe30ad9a3e868c6a3f3db 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -2050,8 +2050,8 @@ See the command `doc-view-mode' for more information on this mode."
       (when (memq (selected-frame) (alist-get 'frames attrs))
         (let ((geom (alist-get 'geometry attrs)))
           (when geom
-            (setq monitor-top (nth 0 geom))
-            (setq monitor-left (nth 1 geom))
+            (setq monitor-left (nth 0 geom))
+            (setq monitor-top (nth 1 geom))
             (setq monitor-width (nth 2 geom))
             (setq monitor-height (nth 3 geom))))))
     (let ((frame (make-frame